home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.A.po
/
FEATURES:BEAGLE
/
FLEX.TYPE.SHK
/
FLEX.TYPE
/
MIXED GRAPHICS AND TEXT.bas
< prev
next >
Wrap
BASIC Source File
|
2000-01-01
|
777b
|
12 lines
5 &
10 REM MIXED GRAPHICS AND TEXT DEMO PROGRAM
15 REM SET UP CTRL B, D, P & T
20 B$ = CHR$(2):D$ = CHR$(4):P$ = CHR$(16):T$ = CHR$(20)
25 PRINT T$1B$P$: HGR2 : HCOLOR= 3: PRINT D$"BLOAD DEMO.PIC,A$4000": SPEED= 100
30 VTAB 21: PRINT "With Flex Type you can put text down here."
35 VTAB 1: PRINT "Or you can put it up here.": VTAB 14: HTAB 41: PRINT "You can even write "
40 FOR I = 1 TO 5: READ X,Y: HPLOT X,Y: NEXT I: DATA 235, 108, 235, 112, 232, 116, 226, 118, 219, 119
45 FOR I = 1 TO 25:X = X -7: HPLOT X,Y: NEXT I
50 FOR I = 1 TO 8: READ X,Y: HPLOT X,Y: NEXT I: DATA 37, 118, 30, 116, 27, 109, 27, 102, 26, 103, 25, 104, 28, 103, 29, 104
55 VTAB 11: HTAB 7: PRINT " here."
60 VTAB 22: PRINT "As you may have noticed, you can also HPLOT.": SPEED= 255